home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / ab20 / ab20_archive / games / strategy / madgic-corewar-4.0.lzh / 1989 / QuickSand2.s < prev    next >
Text File  |  1992-03-10  |  1KB  |  41 lines
  1. ; Quick Sand II
  2. ;
  3. ; by Norman Richards
  4. ;
  5. BOMB         SPL    BOMB
  6. DAT1         DAT                # 20
  7. NUM          DAT                # 470
  8. INC          DAT                # 17
  9. NUMSAVE      DAT                # 470
  10. OUTERLOOP    DAT                # 8
  11. ;
  12. START        SPL    PART2
  13. PART1        ADD    INC           DAT1
  14.              MOV    BOMB        @ DAT1
  15.              DJN    PART1         NUM
  16.              ADD  # 20            INC
  17.              SUB  # 50            NUMSAVE
  18.              MOV    NUMSAVE       NUM
  19.              MOV  # 20            DAT1
  20.              DJN    PART1         OUTERLOOP
  21.              MOV  # 470           NUMSAVE
  22.              MOV    NUMSAVE       NUM
  23.              MOV  # 17            INC
  24.              MOV  # 18            OUTERLOOP
  25.              JMP    PART1
  26. PART2        CMP  @ POINT1      @ POINT2
  27.              JMP    NE
  28.              MOV    PABOMB      @ POINT1
  29.              MOV    PABOMB      @ POINT2
  30. NE           CMP  < POINT1      < POINT2
  31.              MOV    POINT2        POINT1
  32.              JMZ    POINT2        PART2
  33.              MOV  #-40            POINT1
  34.              MOV    POINT1        POINT2
  35.              JMP    PART2
  36. PABOMB       DAT                # 0
  37. POINT1       DAT                #-40
  38. POINT2       DAT                #-40
  39.              END    START
  40.  
  41.